home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / patches / pgs3f.lha / 3.0fUpdate / Macros.LHA / GotoMasterPage.rexx < prev    next >
OS/2 REXX Batch file  |  1994-09-20  |  562b  |  20 lines

  1. /* $VER: GotoMasterPage.rexx 1.0 (02.9.94)
  2.    Copyright 1994 Soft-Logik Publishing Corporation
  3.    May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. ADDRESS 'PAGESTREAM'
  8.  
  9. 'currentmasterpage'
  10. mpname=result
  11. 'getdimensions 'stem' masterpage "'mpname'"'
  12. if stem.sides='SINGLE' then mpname=mpname||':right'
  13. if stem.sides='DOUBLE' then do
  14.     'currentpage'
  15.     pagenum=result
  16.     if pagenum/2=trunc(pagenum/2) then mpname=mpname||':left'
  17.         else mpname=mpname||':right'
  18. end
  19. 'display mpg "'mpname'"'
  20.